home *** CD-ROM | disk | FTP | other *** search
/ isnet Internet / Isnet Internet CD.iso / prog / hiz / 09 / 09.exe / adynware.exe / perl / bin / tkweb.bat < prev    next >
Encoding:
DOS Batch File  |  1999-12-28  |  3.3 KB  |  88 lines
  1. @rem = '--*-Perl-*--
  2. @echo off
  3. perl -x -S %0 %1 %2 %3 %4 %5 %6 %7 %8 %9
  4. goto endofperl
  5. @rem ';
  6. #!/usr/local/bin/perl -w
  7. #line 8
  8.  
  9. =head1 NAME
  10.  
  11. tkweb - rough and ready web browser
  12.  
  13. =head1 SYNOPSIS 
  14.  
  15. tkweb <url to view>
  16.  
  17. =head1 DESCRIPTION
  18.  
  19. Uses a derivative of Tk::Text and  libwww package to 
  20. produce a web browser.
  21.  
  22. =head1 BUGS
  23.  
  24. Lots...
  25.  
  26. =cut  
  27.  
  28. use Tk;
  29. require Tk::Web;
  30. # require Tk::ErrorDialog;
  31. require Tk::LabEntry;
  32. require URI::URL;
  33. require Tk::Menubar;
  34.  
  35. my $pwd = `pwd`;
  36. chomp($pwd);
  37.  
  38. my $urltxt;
  39. my $showlink;
  40.  
  41. my $mw = MainWindow->new();
  42. my $mb  = $mw->Menubar->pack(-fill => 'x');
  43. my $fm  = $mb->Menubutton(-text => 'File', -underline => 0)->pack(-side => 'left');; 
  44. my $em  = $mb->Menubutton(-text => 'Edit', -underline => 0)->pack(-side => 'left');; 
  45. my $vm  = $mb->Menubutton(-text => 'View', -underline => 0)->pack(-side => 'left');; 
  46. my $hm  = $mb->Menubutton(-text => 'Help', -underline => 0)->pack(-side => 'right');; 
  47. my $but = $mw->Frame->pack(-fill => 'x');
  48. my $w   = Tk::Web->new($mw,-showlink => sub { $showlink = shift }, -urlcommand => sub { $urltxt = shift} );
  49. my $e   = $mw->LabEntry(-label => 'Location:',-labelPack => [-side => 'left',-anchor => 'e'],-textvariable => \$urltxt )->pack(-fill => 'x');
  50.  
  51. $e->bind('<Return>',[$w,'url',Tk::Ev(['get'])]);
  52.  
  53. $w->{'-header'} = {'Accept' => join(',','text/html', 'text/plain', 'image/gif', 
  54.                                     'image/x-xbitmap', 'image/x-pixmap', '*/*'),
  55.            'User-Agent' => 'tkweb/.xx'};
  56.  
  57. $w->pack(-expand => 1, -fill => 'both');
  58. $fm->command(-label => 'Open...',-underline => 0, -command => [$w,'Open']); 
  59. $fm->command(-label => 'Save as...',-underline => 0, -command => [$w,'SaveAs']); 
  60. $fm->command(-label => 'Exit',-underline => 1, -command => [$mw,'destroy']); 
  61. $vm->command(-label => 'Reload',-underline => 0, -command => [$w,'Reload']); 
  62. $vm->command(-label => 'Source...',-underline => 0, -command => [$w,'ShowSource']); 
  63. $vm->command(-label => 'HTML...',-underline => 0, -command => [$w,'ShowHTML']); 
  64.  
  65. $but->Button(-text => 'Back', -command => [$w,'Back'])->pack(-side => 'left');
  66. $but->Button(-text => 'Forward', -command => [$w,'Forward'])->pack(-side => 'left');
  67. $but->Button(-text => 'Home', -command => [$w,'Home'])->pack(-side => 'left');
  68. $but->Button(-text => 'Reload', -command => [$w,'Reload'])->pack(-side => 'left');
  69. $but->Button(-text => 'Images', -command => [$w,'Images'], -state => 'disabled')->pack(-side => 'left');
  70. $but->Button(-text => 'Open', -command => [$w,'Open'])->pack(-side => 'left');
  71. $but->Button(-text => 'Print', -command => [$w,'Print'])->pack(-side => 'left');
  72. $but->Button(-text => 'Find', -command => [$w,'Find'])->pack(-side => 'left');
  73. $but->Button(-text => 'Stop', -command => [$w,'Stop'])->pack(-side => 'left');
  74. $mw->AddScrollbars($w);
  75. my $show = $mw->Frame(-label => 'URL : ',-labelPack => [-side => 'left'])->pack(-fill => 'x');
  76. $show->Label(-textvariable => \$showlink, -anchor => 'w')->pack(-fill => 'y',-anchor => 'w', -expand => 1, -side => 'left');
  77. $show->Frame(-height => '3m', -width => '60m', -borderwidth => 3, -background => 'cyan', -relief => 'sunken')
  78.              ->pack(-side => 'right', -padx => '3m');
  79. my %args = (-scrollbars => 'w');
  80. $mw->ConfigDefault(\%args);
  81. $mw->configure(%args);
  82. $w->url($ARGV[0]) if (@ARGV);
  83. $w->focus;
  84.  
  85. MainLoop;
  86. __END__
  87. :endofperl
  88.